home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / PaintJet / PaintJet.rsrc / POST_264 < prev    next >
Encoding:
Text File  |  1991-12-13  |  1.1 KB  |  39 lines
  1. %!PS-TTS-1.0
  2. % Hewlett-Packard PaintJet setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /PaintJet {
  7.   true true false false setframetype
  8.   57600 75 settilesize
  9.   /freq deviceresolutionx dup 180 lt {3 idiv} {4 idiv} ifelse def
  10.   freq 15 /circlespot load freq 75 /circlespot load freq 0 /circlespot load freq 45 /circlespot load setcolorscreen
  11.   {} settransfer
  12.  
  13.   userdict /letter {statusdict begin 576 720 setdevicepage end} put
  14.   userdict /lettersmall {statusdict begin 554 720 setdevicepage end} put
  15.  
  16.   /showproc {
  17.     statusdict begin
  18.     /jobstate (printing to PaintJet) def
  19.     #copies {
  20.       devicefile dup <1B55> writestring flushfile
  21.       devicefile opendevicepage renderproc devicefile closedevicepage
  22.       devicefile dup <0C> writestring flushfile
  23.     } repeat
  24.     /jobstate (busy) def
  25.     end
  26.   } def
  27.  
  28.   /setdevicepage {
  29.     devicescaley mul cvi /imageheight exch def
  30.     devicescalex mul cvi /imagewidth exch def
  31.     [devicescalex 0 0 devicescaley neg
  32.      imagewidth devicepaperwidth sub 2 div
  33.      imageheight devicepaperheight add 2 div] installdevice
  34.   } def
  35. } bind def
  36.  
  37. end
  38.  
  39.